home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / boxes / aboutbox / sampcode.txt < prev   
Encoding:
Text File  |  1996-03-21  |  1.4 KB  |  38 lines
  1. Note: This code was to be used as another way of returning 
  2.       information in the form of percentages instead of 
  3.       memory in KB Free... 
  4.  
  5. ' Memory Status Info structure
  6. ' Used to get various system memory information
  7. Type MEMORYSTATUS
  8.     dwLength As Long         ' sizeof(MEMORYSTATUS)
  9.     dwMemoryLoad As Long     ' percent of memory in use (between 1 and 100)
  10.     dwTotalPhys As Long      ' bytes of physical memory
  11.     dwAvailPhys As Long      ' free physical memory bytes
  12.     dwTotalPageFile As Long  ' bytes of paging file
  13.     dwAvailPageFile As Long  ' free bytes of paging file 
  14.     dwTotalVirtual As Long   ' user bytes of address space
  15.     dwAvailVirtual As Long   ' free user bytes
  16. End Type
  17.  
  18. ' New code to be implemented for three new display labels...
  19.  
  20. Dim MemStat  as MEMORYSTATUS
  21. Dim MemData  as Long
  22. Dim TmpData1 as Long
  23. Dim TmpData2 as Long
  24.  
  25. TmpData1 = MemStat.dwAvailPhys \ 1024
  26. TmpData2 = MemStat.dwTotalPhys \ 1024
  27. MemData = Fix((TmpData1  / TmpData2) * 100)
  28. OptLabel(i) = Str(MemData) & " % in Use"
  29.  
  30. TmpData1 = MemStat.dwAvailPageFile \ 1024
  31. TmpData2 = MemStat.dwTotalPageFile\ 1024
  32. MemData = Fix((TmpData1  / TmpData2) * 100)
  33. OptLabel(i) = Str(MemData) & " % in Use"
  34.  
  35. TmpData1 = MemStat.dwAvailVirtual \ 1024
  36. TmpData2 = MemStat.dwTotalVirtual \ 1024
  37. MemData = Fix((TmpData1  / TmpData2) * 100)
  38. OptLabel(i) = Str(MemData) & " % in Use"